home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1993 April: Penguin on DISC / ADC Developer CD (1993-04) (''Penguin On DISC'')_iso / Dev.CD Apr 93.iso / Utilities / MPW Interfaces 7.1 Beta / PInterfaces / FileTransferTools.p < prev    next >
Encoding:
Text File  |  1992-08-28  |  1.7 KB  |  101 lines  |  [TEXT/MPS ]
  1.  
  2. {
  3. Created: Thursday, September 12, 1991 at 9:51 AM
  4.  FileTransferTools.p
  5.  Pascal Interface to the Macintosh Libraries
  6.  
  7.   Copyright Apple Computer, Inc. 1988-1991
  8.   All rights reserved
  9. }
  10.  
  11.  
  12. {$IFC UNDEFINED UsingIncludes}
  13. {$SETC UsingIncludes := 0}
  14. {$ENDC}
  15.  
  16. {$IFC NOT UsingIncludes}
  17.  UNIT FileTransferTools;
  18.  INTERFACE
  19. {$ENDC}
  20.  
  21. {$IFC UNDEFINED UsingFileTransferTools}
  22. {$SETC UsingFileTransferTools := 1}
  23.  
  24. {$I+}
  25. {$SETC FileTransferToolsIncludes := UsingIncludes}
  26. {$SETC UsingIncludes := 1}
  27. {$IFC UNDEFINED UsingDialogs}
  28. {$I $$Shell(PInterfaces)Dialogs.p}
  29. {$ENDC}
  30. {$IFC UNDEFINED UsingFileTransfers}
  31. {$I $$Shell(PInterfaces)FileTransfers.p}
  32. {$ENDC}
  33. {$SETC UsingIncludes := FileTransferToolsIncludes}
  34.  
  35. CONST
  36.  
  37. { Control }
  38. ftInitMsg = 0;
  39. ftDisposeMsg = 1;
  40. ftSuspendMsg = 2;
  41. ftResumeMsg = 3;
  42. ftMenuMsg = 4;
  43. ftEventMsg = 5;
  44. ftActivateMsg = 6;
  45. ftDeactivateMsg = 7;
  46. ftGetErrorStringMsg = 8;
  47.  
  48. ftAbortMsg = 52;
  49.  
  50. ftStartMsg = 100;
  51. ftExecMsg = 102;
  52. ftSendMsg = 103;
  53. ftReceiveMsg = 104;
  54.  
  55. {Setup }
  56. ftSpreflightMsg = 0;
  57. ftSsetupMsg = 1;
  58. ftSitemMsg = 2;
  59. ftSfilterMsg = 3;
  60. ftScleanupMsg = 4;
  61.  
  62. { validate }
  63. ftValidateMsg = 0;
  64. ftDefaultMsg = 1;
  65.  
  66. { scripting }
  67. ftMgetMsg = 0;
  68. ftMsetMsg = 1;
  69.  
  70. { localization }
  71. ftL2English = 0;
  72. ftL2Intl = 1;
  73.  
  74. { DEFs }
  75. fdefType = 'fdef';
  76. fsetType = 'fset';
  77. fvalType = 'fval';
  78. flocType = 'floc';
  79. fscrType = 'fscr';
  80.  
  81. fbndType = 'fbnd';
  82. fverType = 'vers';
  83.  
  84. TYPE
  85. FTSetupPtr = ^FTSetupStruct;
  86. FTSetupStruct = PACKED RECORD
  87.  theDialog: DialogPtr;    { the dialog form the application }
  88.  count: INTEGER;        { first appended item }
  89.  theConfig: Ptr;        { the config record to setup }
  90.  procID: INTEGER;        { procID of the tool }
  91.  END;
  92.  
  93.  
  94.  
  95. {$ENDC} { UsingFileTransferTools }
  96.  
  97. {$IFC NOT UsingIncludes}
  98.  END.
  99. {$ENDC}
  100.  
  101.